home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / mced-1.0.lha / Install MCEd < prev    next >
Encoding:
Text File  |  1992-09-02  |  2.0 KB  |  102 lines
  1. ; Installer script for MCEd
  2. ; $VER: Install MCEd 1.9 (1.2.95)
  3.  
  4. (complete 0)
  5.  
  6. (set @default-dest "REXX:CEDScripts")
  7.  
  8. (set #comm-dir "CEDScripts/")
  9.  
  10. ; ***************************************************************************
  11. ; English strings
  12.  
  13. (if (= @language "english")
  14.     (
  15.         (set #welcome
  16.             (cat "\nMCEd installation\n\n\n"
  17.                         "This script installs MCEd 1.0\n"
  18.                         "on your Amiga.\n\n\n\n"
  19.                         "MCEd package is\n"
  20.                         "Copyright © 1994-95 Michael Letowski\n"
  21.                         "All rights reserved.\n\n"))
  22.  
  23.         (set #where-commands
  24.             (cat "Where should MCEd scripts be installed?"))
  25.  
  26.         (set #where-help
  27.             (cat "\n\"REXX:\" is a place to hold\n"
  28.                         " your ARexx scripts.\n"
  29.                         "\"CEDScripts\" drawer is a default\n"
  30.                         " drawer for CEd's scripts.\n\n"))
  31.  
  32.         (set #which-commands
  33.             (cat "Which MCEd scripts should be installed?"))
  34.  
  35.         (set #which-commands-help
  36.             (cat "\n\n\"MakeComment.ced\" makes boxed comments;"
  37.                         "\n\n\"Paginate.ced\" inserts page numbers;"
  38.                         "\n\n\"Preview.ced\" shows current file with formatting;"
  39.                         "\n\n\"Stats.ced\" shows basic text's statistics;"
  40.                         "\n\n\"Undo.ced\" undoes changes made by MCEd scripts.\n\n\n"))
  41.     )
  42. )
  43.  
  44. ; ***************************************************************************
  45. ; Install MCommands
  46.  
  47. (message #welcome)
  48.  
  49. (welcome)
  50. (set old_level @user-level)
  51.  
  52. (user 2)
  53. (set #mcommands-dir
  54.     (askdir
  55.         (prompt #where-commands)
  56.         (help #where-help)
  57.         (default @default-dest))
  58. )
  59.  
  60. ; Choose commands
  61. (set commands
  62.     (askoptions
  63.         (prompt #which-commands)
  64.         (help #which-commands-help @askoptions-help)
  65.         (choices
  66.             "MakeComment.ced"
  67.             "Paginate.ced"
  68.             "Preview.ced"
  69.             "Stats.ced"
  70.             "Undo.ced")
  71.     )
  72. )
  73.  
  74. ; Do copy
  75. (user old_level)
  76. (set n 0)
  77. (while
  78.     (set comm
  79.         (select n
  80.             "MakeComment.ced"
  81.             "Paginate.ced"
  82.             "Preview.ced"
  83.             "Stats.ced"
  84.             "Undo.ced"
  85.             "")
  86.     )
  87.     (
  88.         (if (IN commands n)
  89.             (copyfiles
  90.                 (source (cat #comm-dir comm))
  91.                 (dest #mcommands-dir)
  92.             )
  93.         )
  94.         (set n (+ n 1))
  95.         (complete (* n 20))
  96.     )
  97. )
  98.  
  99. (set @default-dest #mcommands-dir)
  100. (complete 100)
  101. (exit)
  102.